﻿<Serializable()> _
Public Class MediaFile


    Private m_ID As Integer
    Private m_url As String
    Private m_type As MediaFileType
    Private m_Path As String
    Private m_IsStartingMovie As Boolean



    Public Sub New(ByVal p_ID As Integer, ByVal p_Url As String, ByVal p_Type As MediaFileType, ByVal p_Path As String)
        m_Path = p_Path
        m_ID = p_ID
        m_url = p_Url
        m_type = p_Type
    End Sub


    Public Sub New()
    End Sub

    Public Property IsStartingMovie() As Boolean
        Get
            Return m_IsStartingMovie
        End Get
        Set (ByVal value As Boolean)
            m_IsStartingMovie = value
        End Set
    End Property

    Public Property Path() As String
        Get
            Return m_Path
        End Get
        Set(ByVal value As String)
            m_Path = value
        End Set
    End Property

    Public Property Type() As MediaFileType
        Get
            Return m_type
        End Get
        Set(ByVal value As MediaFileType)
            m_type = value
        End Set
    End Property

    Public Property Url() As String
        Get
            Return m_url
        End Get
        Set(ByVal value As String)
            m_url = value
        End Set
    End Property

    Public Property ID() As Integer
        Get
            Return m_ID
        End Get
        Set(ByVal value As Integer)
            m_ID = value
        End Set
    End Property


End Class
